PD4

Wykres interaktywny

library(plotly)
library(dplyr)

df_books<- read.csv("bestsellers.csv")

df_1 <- df_books %>% 
        filter(Reviews <= 5000) %>% 
        filter(Genre %in% c("Non Fiction", "Fiction")) %>% 
        mutate(Genre = factor(Genre, levels = c("Non Fiction", "Fiction")))

plot_ly(
  data = df_1, 
  x = ~Price, 
  y = ~User.Rating, 
  color = ~Genre,
  colors = "Set1",
  text = paste0("Title: ", df_1$Name, "<br>Author: ", df_1$Author),
  hoverinfo = 'x+y+text'
  # hovertemplate = paste('<b>%{text}</b><br><b>X</b>: %{x}<br><b>Y</b>: %{y} <extra>tooltip</extra>')
)%>% 
  layout(
    title = "Prices and ratings of non-popular (<5000 Reviews) books",
    xaxis = list(title = "Price"),
    yaxis = list(title = "User Rating"),
    legend = list(
      x = 0.9, y = 0.95, 
      title = list(text = "Genre"), 
      bgcolor = "#E2E2E2"
    ))